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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill at ir. typewriter or pencil, do not use ink) 

Program No. Date 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does? 

Comment 

2. Does the program do what the abstract says ? Yes No_ 

Comment 

3. Is the Description clear, understandable, and adequate? Yes No. 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No. 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes No. 

Commen t 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 

11/09/64 



Perpetual Calendar 



Author: W. B. Earl 

University of Canterbury 
P. O. Box 1471 
Christchurch 
New Zealand 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs,, users should order a complete new program 
from the Program Information Department. 



DECK KEY 
l.Program Deck 



1620 USERS' GROUP LIBRARY 



PROGRAM ABSTRACT 



Title : 
Subject 

Classification 
Code ; 
Author : 



Description 



PERPETUAL CALENDAR 

Demonstration 
11.0 

»'.B. EARL, 

University of Canterbury, 
P.O. Box 1471, 
Christchurch, 
NEW ZEALAND. 

This program gives the day of the week for any date (A.D.) 
in the Gregorian Calendar, entered numerically at the 
typewriter keyboard in logical sequence (viz: day, 
month, year). 

Appropriate messages are typed out for invalid entries 
(e.g. 31.11.1962) 

It is an excellent demonstration program for non-special- 
ists, most of whom know what a calendar is. 



Mathematical 
Method : 



N/A 



Restrictions. 
Range : 

Storage 
Requirements : 

Running Time : 
Source Language 

Test Status : 



Upper limit is approximately 8000 A.D., which is consid- 
ered satisfactory for most applications. 



4000 digits approximately. 

One second per entry approximately. 

SPS I 

Has given many successful performances. 



Equipment 
Specifications 



Basic 20K card 1620 with divide hardware. 



1620 USERS' GROUP LIBRARY 



Pile No : 11.0 



PERPETUAL CALENDAR 



W.B. Earl, 

University of Canterbury, 
P.O. Box 1471, 
Christchurch, 
NEW ZEALAND. 







n per;:tinfi Procedure 

1 . Clear memory. 

2. Load Program 

3. Set : Parity and I/O switches to STOP 

OVEI.FLOY; switch to PRO&RAI.' 
All sense switches OFF. 

4. '-'it START. Ho?.' follow the instructions typed. 

5. The sense switches can be used for suppressing some remarks, 
correcting entries and for obtaining age if so desired. See use below. 



ST. - 1 If Oil suppresses typing of PLEASE TAKE MORE CASE T?ITH 

YOUR FIGURES after coanent following each invalid date. 

If OFF does not suppress the above type out. 



SV: 2 If GIT suppresses typing of TRY ANOTHER ONE after each calculation. 

If OFF does not suppress above type out. 

SW 3 For use with birth dates. 

If ON M/C types age for any date after the first. 

SV;' 4 For use in correcting entries at the T/fr. 

If a mistake in entry is made turn SW ^ OK, push R.-S, 
turn SV/ 4 OFF and proceed by typing in correct entry. 
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C 4 2 -0 
430 2 
04^14 
('■43.26. 
0433-1 
04350 
04362 
04374 
04316 
04 5 o 1 
04410 
04422 
04434 
04446 
04453 
04470 
04432 
ni+4Q4 
04506 
045 1 n 
n45 30 
4542 
4554 
04566 
04578 
04590 
0460 2 
04614 
04626 
04633 
04650 
04662 
04674 
04636 
04693 
04710 
04722 
04734 
04746 
04753 
0477n 
04732 
04794 
o4?o6 
043 1 8 
04330 
04342 
04354 
04366 
n4973 

043QP 



2b. "t>1 3- 061 5 5 
46 046 jh 01 100 
22 06127 06139 
25 05:'27 06127 
43 0433 ! 061 26 
15 05:24 GOGOO 

25 05^25 06126 

26 06127 06131 

24 06142 06131 
46 04722 01 100 
2 2 06127 06142 

25 5 •(>< 06127 
43, 04434 06126 
15 05906 OCOOO 

25 05Q07 06126 

24 06147 06137 
46 04750 01100 

26 06127 06137 
22 n6l27 06147 

25 05.30 3. 06127 
L? 04530 06124 
15 5336 00000 
25 05337 (-6124 
43 04566 06125 
15 05333 of one 
25 05839 06125 
43 04602 06.126 

15 n58go onooo 
25 05891 06126 
34 onooo 00102 

39 05371 00100 

16 05890 70707 
16 05907 00070 
16 05925 00070 

49 04206 ononn 

21 06127 0612« 

11 06142 oonni 

49 04290 ononn 

1 1 06127 nnnT2 

11 06147 00001 

49 04336 00000 

34 onnoo 00102 

39 05331 00 mo 

49 04206 ooono 

34 noenn nom2 

39 n6037 ooion 

49 n4i46 nnono 

34 00000 nnm2 

39 05961 00100 

4q 04146 ooono 

34 ooono 00102 

39 05731 onion 
4Q n42ffi oonno 



C6010M0M1 DAC t 3, THERE ARE ONLY 12 MONTHS IN ANY YEAR MATE.® 
04Q0 3 0004 3X2 THERE ARE ONLY 12 MONTHS IN ANY YEAR MATE . ± 
06O2ODAY1 DAC 32, NO MONTH HAS MORE THAN 31 DAYS .® 
0493? n0032X2 NO MONTH HAS MORE THAN 31 DAYS.± 

0603ODAYA1 DAC U? , THIS MONTH CANNOT HAVE MORE THAN 30 DAYS.® 



•5; c.. ,. roy : 2X2 T.,io . C.UJNOT HAVE MORE > 

i. ; 5;3Y.,u ■").»-: i : ,| rlaDY TY CMC YL,-Yi E '; . .-. □ Y, ',,,1 Y-,s ,-'Y;v 
051 37 00043X2 I RY.-vQY TO CALCULATE THE DaY OF Tt-.E WEEK. FG!<* 
0606OSTAR1 DAC 46, ANY DAY OF ANY MONTH OF ANY YEaR ANNO DJM:,I. 
(5233 0^046X2 ANY DAY OF ANY MONTH OF ANY YEAR AMMO DOM I Ml.* 
G607LSTAR2 DaC 4 J, NOW ENTER TODAYS DATE IN FULL. EG. LI 01 1 ,-2 - 
05325 OOC43X2 NOW ENTER TODAYS DATE IN FULL. FG. U M 1 r- 
OMjoGGRO DAC 41, PLEASE TAKE MORE CARE WITH YOUR FIGURES." 
05421 00041X2 PLEASE TAKE MORE CARE WITH YOUR FIGURES.± 
O6O'OOGR02 DAC 17, TRY ANOTHER ONE. « ( 5c C 3 ( OC 1 7X 2 TRY .MOTHER 

7, MONDAY© 55 37 (.0017X2 MOKOAY* 

•, TUESDAY® C 5C51 GCf-0 ,X2 TUESDAYS 

1 0, WEDNESDAY® 0556-7 00CKX2 WEDNESDAY* 

THURSDAY® (55Y7 G00G-X2 THURSDAY* 

7, FRIDAY® 05605 OOf f 7X? FRIDAY* 

9, SATURDAY© C5b1 '■■ OOCG'X? SATURDAY * 

7, SUNDAY® 05637 0000 7X2 SGNIHY* 

40, IN THIS YEAR FEBRUARY HAS ONLY 2 ■ DAYS. 'Y 
THIS YEAR FEBRUARY HAS ONLY 23 DAYS.* 

50, IM SORRY, THIS DATE IS TOO LARGE FOR ME TO HANDLED 
05731 00050X7. IM SORRY, THIS DATE IS TOO LARGE FOR ME TO HANDLE* 

NBYT DAC 20,Y0URE NOT BORN YET.® 05331 O002CX2 YOURE NOT 



61O0M0N 
061 1"TUE 
06120WED 
061 30THURS 
06140FRI 
06150SAT 
06160SUN 
06130FEB1 
5651 00040X2 
C^2000V DAC 



DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 



■ CRN 



AGE DAC 45, YOU ARE CCOOYEARS CCMONTHS CCDAYS OLD TODAY / 
05971 00045X2 YOU are COOOYEARS COMONTHS CCDAYS OLD TODAY, 



ZED 



DAC 33, STUPID.. THERE IS NO OTH OF THE MONTH® 



05961 n0038X? STUPID.. THERE IS NO OTH OF THE MONTH* 



ZEM DAC 33, IM NOT S ILLY. 
06037 0003BX2 IM NOT SILLY.. THERE 
06210FHYE DS 4, 



C6220HYE 

06230FYE 

C6294TRANS 
DSMO 
MOO 
DAA 
YEE 

062Q1DA 

06292M0 

0629 3 YE 

06293 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



4, 
4, 

^ 
2, 
2, 

2, 

L 
■ > 

2, 

% 
5. 



DEND BAR 



THERE IS NO ZERO MONTH® 

IS NO ZERO MONTH* 

06115 00004 
061 1 9 00004 

0612 3 00004 
06127 00004 
06129 00002 
06131 00002 
06133 C0002 
06137 00004 

061 3 : COCO 2 
06142 0CC0 3 
06147 0GCC5 
02173 



PERPETUAL CALENDAR 
BID OF PROGRAM LISTING- 



PERPETUAL CALENDAR 



sesci:b? outfut 



I AM READY TO CALCULATE THE DAY OF THE WEEK FOR 
ANY DAY OF ANY MONTH OF ANY YEAR ANNO DOMINI. 

NOW ENTER TODAYS DATE IN FULL. EG. 01 01 1962. 
22 01 1963RS TUESDAY 
TRY ANOTHER ONE. 

7 11 19^CRS THURSDAY 
YOU ARE 22YEARS 2M0NTHS 15DAYS OLD TODAY. 
TRY ANOTHER ONE. 
29 2 1963RS 

IN THIS YEAR FEBRUARY HAS ONLY 28 DAYS. 
PLEASE TAKE MORE CARE WITH YOUR FIGURES. 
TRY ANOTHER ONE. 29 2 196**5 SATURDAY 
TRY ANOTHER ONE. 30 2 196^ 
IN THIS YEAR FEBRUARY HAS ONLY 29 DAYS. 
PLEASE TAKE MORE CARE WITH YOUR FIGURES. 
TRY ANOTHER ONE. 
1 1963R5 

STUPID.. THERE IS NO OTH OF THE MONTH 10 2 1938SS THURSDAY 
YOU ARE 24 YEARS 11 MONTHS 12DAYS OLD TODAY. 
13 12 1962RS THURSDAYS 12 1962R5 FRIDAY 15 12 1962R5 SATURDAY 
12 13 1963RS 

THERE ARE ONLY 12 MONTHS IN ANY YEAR MATE. 
PLEASE TAKE MORE CARE WITH YOUR FIGURES. 
31 k 196JK 

THIS MONTH CANNOT HAVE MORE THAN 30 DAYS. 
PLEASE TAKE MORE CARE WITH YOUR FIGURES. 
12 12 800GR5 

IM SORRY, THIS DATE IS TOO LARGE FOR ME TO HANDLE32 12 1963*5 
NO MONTH HAS MORE THAN 31 DAYS. 
21 1963K 

IM NOT SILLY.. THERE IS NO ZERO MONTHS 12 1962R5 

NO MONTH HAS MORE THAN 31 DAYS. 

PLEASE TAKE MORE CARE WITH YOUR FIGURES. 

TRY ANOTHER ONE. 




